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【 摘 ， 要】 讨论 了 目前 连续 变化 钢筋 尺寸 翻 样 的 几 种 方法 ， 
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介绍 了 利用 Autocad 进行 翻 样 的 优势 ,并 用 lisp 语言 实 


现 翻 样 的 自动 化 ,最 后 结合 某 桥 墩 实例 详细 的 描述 了 利用 lisp 语言 实现 连续 变化 钢筋 尺寸 快速 翻 样 的 一 般 步 又 。 
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在 道路 桥梁 施工 中 ,施工 设计 图 给 出 不 同 结构 
的 钢筋 下 料 单 。 施 工 现场 的 工人 根据 钢筋 下 料 单 
中 药 出 的 各 种 类 型 的 钢筋 的 尺寸 ,形状 .数量 制作 
施工 所 需要 的 钢筋 。 但 是 ,施工 设计 图 中 某 些 类 型 
钢筋 的 形状 相似 ,而 具体 的 尺寸 是 随 着 结构 的 外 形 
变换 而 逐渐 变化 的 。 并 且 施 工 设计 图 中 只 给 出 该 
类 型 钢筋 尺寸 变化 范围 ,具体 尺寸 需要 结合 结构 形 
状 旗 行 计算 。 在 实际 施工 过 程 中 ,计算 具体 尺寸 的 
方 湛 有 以 下 三 种 : 

三 (1) 经 验 值 法 。 经 验 值 法 是 施工 人 员 根 据 以 往 
的 施工 经 验 , 使 用 经 验 参 数 、 经 验 公式 ,代入 结构 尺 
寸 数 据 计算 得 到 所 需要 的 钢筋 尺寸 数据 。 

(2) 放 大 样 法 。 放 大 样 法 是 将 结构 按照 某 比例 
放出 大 样 ,再 用 钢 尺 实际 量 出 所 需要 的 不 同 尺寸 。 

(3 ) Autocad 翻 样 法 。Autocad 翻 样 法 是 将 结构 
在 Autocad 中 绘制 出 ,再 根据 钢筋 布局 参数 翻 样 出 
钢筋 ,然后 借助 Autocad 标注 的 功能 得 到 需要 的 尺 
二 数据。 

通过 比较 三 种 方法 可 以 发 现 ,第 一 种 方法 的 计 
算 量 大 、 耗 时 长 ,需要 施工 人 员 有 丰富 的 施工 经 验 。 
第 二 种 绘制 方法 误差 较 大 。 第 三 种 方法 相对 简单 、 
精确 。 但 是 这 种 方法 首先 要 对 结构 进行 绘图 ,然后 
进行 后 续 的 翻 样 .标注 工作 。 但 是 相似 结构 的 重复 
绘制 ,大 量 图 元 的 重复 标注 和 数据 抄录 是 耗 时 费 
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力 的 。 

Autocad 不 但 绘图 功能 完善 用户 界面 良好 ,而 
且 用 户 可 进行 二 次 开发 。 利 用 Autocad 自 带 的 
lisp 编程 软件 ,用 户 可 以 构建 模型 中 ,调用 模型 , 输 
入 参数 实现 绘图 、 翻 样 \. 标 注 、 结 果 输 出 的 自动 化 ， 
从 而 大 大 减轻 施工 人 员 的 工作 量 ,提高 数据 精度 。 


1 快速 翻 样 标注 的 实现 


1.1 快速 翻 样 标注 的 一 般 流程 

该 功能 实现 的 一 般 流程 如 图 1 所 示 , 主 要 包括 : 
模型 选择 .参数 输入 ` 绘 制 结 构图 、 翻 样 、 标 注 、 结 果 
输 } Jo 


结构 图 绘制 | 守 

算 

参 翻 样 有 
车 数 上 > 动 
到 向 标注 处 
结果 输出 | 分 


图 1 功能 流程 


用 户 首先 根据 自己 的 翻 样 需 求 选择 相对 应 的 
模型 ,如 :桥墩 、 桥 台 、 齿 板 等 。 系统 会 根据 用 户 的 
选择 给 出 与 所 选 模 型 对 应 的 参数 输入 窗口 ” ,并 在 
窗口 上 显示 预先 制作 好 的 ,用 以 提示 用 户 各 参数 所 
代表 的 实际 含义 的 图 片 , 以 方便 用 户 从 施工 图 上 获 
取 参 数 的 实际 值 。 


测绘 。 
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在 用 户 输入 各 参数 后 ,点 击 确定 按钮 ,计算 机 
就 可 自动 绘制 结构 图 ,并 进行 翻 样 , 标 注 和 结 
的 输出 。 

1.2 模型 绘制 及 其 参数 输入 

该 功能 模块 主要 有 两 个 方面 的 工作 : (1) 幻 灯 
片 的 制作 ;(2) 绘 图 翻 样 参 数 的 确定 。 

不 同 结构 所 需要 的 绘图 、 翻 样 参数 由 具体 情况 
实际 确定 。 在 确定 所 有 参数 后 ,给 出 用 户 输入 窗 
口 ,并 配 以 幻灯 片 说 明 ,让 各 参数 的 含义 更 加 明确 。 
对 话 框 采用 DCL 设计 ,下面 为 某 桥墩 的 参数 输入 对 


话 框 设计 代码 : 
// 对 话 框 设计 
T=-5jfy:dialog|label =“ 模 型 参数 选择 ”; 
:row | 


- 三 boxed_column |label =“ 模 型 选择 ” 
GD/ 添加 图 形 控件 
P< :image | width = 15; height = 6; key = “ img”; 


colot = -2;| 
一 // 添 加 模型 列表 
下 :popup_list | label =“ 模 型 样式 ”; edit_width = 
16ist =“ 带 弧 桥墩 \n 斜 线 桥墩 \n 齿 板 \n 箱 梁 中 
膜 极 \n 箱 梁 边 腹 板 ”; value =0; key =“pop”; | | 
s , :boxed_column | label =“ 绘 图 参数 ”; 
</ 添 加 用 户 输入 控件 
CC :edit_box | label =“&a(cm):”; edit_width = 
103key ="a”; | 
: 二 :edit_box | label =“&b (cm):”; edit_width = 
10} key =“b”;| 
:edit_box | label =“ &c (cm):”; edit_width = 
10; key =“c”; | 
:edit_box|label =“ &r(cm):”,; 
key =“r” ;|| 
:boxed_column {1label =“ 翻 样 参数 ”; 
:edit_box | label =“ 间 隔 &d(cm)”; edit_width 
=10; key =“d”; | 
:edit_box | label =“ 保 护 层 &e (cm)”; edit_ 
width =10; key =“e”; 内 
幻灯 片 的 绘制 是 在 Autocad 中 绘制 好 结构 模 
型 ,在 对 应 的 地 方 标注 上 参数 名 称 , 调 用 MSLIDE 命 
令 , 保 存在 计算 机 中 , 供 对 话 框 的 图 片 框 调用 。 下 
面 为 幻灯 片 的 调用 代码 : 


(start_image img_key) 


edit_width = 10; 


(slide_image 0 0( dimx_tile img_key) (dimy_tile 
img_key ) img_sld) 

(end_image) 
1.3 结构 的 绘制 

结构 的 绘制 是 根据 结构 的 几何 特征 ,依据 所 选 
参数 ,调用 函数 ,绘制 出 结构 “。 首 先是 使 用 get_ 
tle 函数 获取 用 户 的 参数 输入 值 : (setq e( atof( get_ 
tile“e”) ) ) 。 然 后 ,结合 结构 的 几何 特征 绘制 图 形 : 

// 设 置 图 形 界限 

(command" limits”“” (list r r)) 

// 计 算 控 制 点 

(setq pS5 (list(/r 2)0)) 

(setq p6( list(/r 2)b)) 

(setq pl (list(/( -rc)2)0)) 

(setq p2(list(/( +rc)2)0)) 

(setq p3(list(/( +r a)2)b)) 

(setq p4(list(/( -ra)2)b)) 

(setq s(/(distance pl p4)2)) 

(setq ang2(atan(sqrt(—-(/(* rr)(* ss)) 
1) ) ) ) 

(setq angl(angle pl p4) ) 

(setq p0(polar pl ( +angl ang2 )r) ) 

// 调 用 绘图 命令 绘制 图 形 

(command" line” pl p2””) 

(command" line” p3 p4””) 

(command" arc”“c”p0 pl p4) 

(setq p7(list( ~ ( * (car p5)2)(car pO0)) (cadr 
p0) ) ) 

(command “arc”“c”p7 p3 p2 ) 
1.4 翻 样 功能 

翻 样 功 能 是 依据 翻 样 参 数 算出 翻 样 次 数 "'”, 调 
用 循环 命令 翻 样 出 结 

/7 计算 修剪 控制 点 

(setdn0) 

(setq cs(fix(/b d) ) ) 


(repeat cs 


(setqn( +n1)) 

(setq pn6 (list(car p6)( -~ (cadr p6)(* 10 
n)))) 

(command" copy” p6” ” p6 pn6 ) ) 


// 循 环 实现 图 形 修 剪 
(setqn 0) 
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(repeat cs 
(setqn( +n1)) 
(setq pn3 (list(car p3)( —- (cadr p3)(* 10 
n)))) 
(setq pn4 (list(car p4)( -~ (cadr p4)(* 10 
n)))) 
(command “ trim ” pl 
pn3 pn4”” )) 
1.5 数据 标注 
数据 的 标注 使 用 到 图 元 属性 ”1 。Autocad 中 所 
有 绘制 的 图 形 都 有 一 个 属性 列表 。 属 性 列表 中 各 
属性 都 以 点 对 列表 的 形式 给 出 ,通过 对 点 对 列表 的 
操作 即 可 获取 想 要 属性 值 ,或 者 通过 属性 列表 修改 
图 元 。 数 据 标 注 通过 提取 出 属性 列表 中 的 线段 长 
用 线段 的 起 点 和 端点 ,调用 标注 命令 ,实现 尺寸 数 
所 的 标注 
@/ 获 得 标注 对 象 
_a(setq pfl(list( ~ (car p5)1) (cadr p5) ) ) 
- (setq pf2 (list( + (car p6)1) (cadr p6) )) 
下 =( setq xzj( ssget“{” (list pf pf2) ) ) 
二// 获 得 长 度 属性 并 标注 
《 < setq pdlx (cadr (assoc 10 (entget ( ssname xzj 
nD)) ) ) 
(setq pdly( caddr (assoc 10 (entget (ssname xzj 
oj05 ) ) 
t= (setq pd2x (cadr ( assoc 11 (entget ( ssname xz] 
nD ) ) 
s (setq pd2y(caddr(assoc 11 (entget (ssname xzj 
n) ) ) ) ) 
(setq pdl (list pdlx pdly) ) 
(setq pd2 (list pd2x pd2y) ) 
(command” dimaligned” pdl pd2 pd2) 
1.6 结果 输出 
为 了 方便 用 户 观 看 结果 ,输出 的 结果 有 图 形 结 
果 , 和 扣除 保护 层 厚 度 后 输出 的 数值 结果 ,这 样 也 
使 得 用 户 省 去 数据 抄录 的 繁琐 工作 。 部 分 代码 为 : 
(setq file(open * * *”“a”)) 
(write-line“ 编号 ”长度 ”保护 层 ”file) 
(setq data( entget( ssname xzj n) ) ) 
(setq tp(cdr( assoc 0 data) ) ) 
(if( =tp“ DIMENSION”) 
(setq cd(cdr(assoc 42 data) ) ) 
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(write-line(strcat (itoa k)“” (rtos( ~cd(* e 
2))2 2))fie) 
(close file) 


2 实例 展示 


以 某 市 的 高 架 桥 的 某 桥 墩 的 弧 线 变化 部 分 为 
例 ,展示 处 理 流 程 和 结果 。 

该 桥墩 的 所 需 绘 图 尺寸 数据 如 图 2 所 示 ,保护 
层 厚 度 为 3cem , 翻 样 间隔 为 10cm。 由 于 桥墩 的 弧 线 
设计 ,该 部 分 的 某 编号 禾 筋 尺寸 会 随 着 弧 线 逐步 变 
化 , 现 展示 如 何 简 单 、 快 速 \ 准 确 的 获得 变化 的 尺寸 

选择 翻 样 模型 为 带 弧 桥墩 ,绘图 和 翻 样 参数 输 
入 窗口 中 如 图 3 所 示 , 将 各 个 参数 对 应 输入 后 点 击 
确定 就 获得 了 所 需 的 翻 样 结 果 。 


RON 


图 2 绘图 参数 


Xx| 


放样 参数 
闻 马 (cm) 


模型 样式 撕 瑰 桥墩 了] | Cen): 保护 层 e (em) 


3 ”参数 输入 对 话 框 


图 形 结果 如 图 4 所 示 ,数值 结 果 如 表 1 所 示 。 

从 上 述 过 程 可 以 看 出 ,用 户 除 了 完成 选择 模型 
和 输入 参数 外 ,其 余 的 工作 都 是 由 计算 机 自动 完 
成 ,省 去 了 人 工 绘图 、 翻 拌和 逐 线 标注 的 繁琐 工作 ， 
并 且 结果 的 自动 化 输出 也 节省 了 数据 抄录 的 过 程 ， 
省 时 ,方便 ,具有 较 高 的 实用 性 。 而 且 , 模 板 是 可 以 
重复 使 用 的 ,在 下 一 次 遇 到 相似 结构 时 可 直接 调用 。 
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身 工作 需求 来 制作 自己 的 程序 来 实现 工作 中 重复 ， 
繁琐 工作 的 自动 化 。 在 该 程序 示例 中 ,用 户 还 可 将 
工作 中 遇 到 的 其 他 不 同 结构 制作 成 模型 添加 到 程 
序 中 ,以便 日 后 遇 到 相似 模型 时 调用 ,减少 工作 
量 ,提高 工作 效率 。 
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A Fast and Simple Lofting Method to Set-out the Continuously 
Changing Reinforcement 
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Abstract: This paper discusses several methods of reinforced lofting at present, and introduces the advantages 
of using AutoCAD in reinforced lofting. The automatic reinforced lofting can be realized by using lisp language. fi- 
nally, combined with an example of a concrete pier, the general steps of using lisp language to realize the rapid 
change of the dimension of continuously changing steel bar are described in details. 
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